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BASSPOWDD ; BASIC double ** double routine 15-SEP-1 138+ $3: 38:3 AX/VMS Macro Vv04-00 Page 1 
1-006 6-SEP-19 BASRTL.SRCJBASPOWDD .MAR; 1 (1) 
TITLE yh tS a IC double ** double routine 
-IDENT /1-006/ ; File: baSpounn’ MAR Edit:MDL1006 


MPARAAARAARARARALASALAALALL ALLL ASSES ALES ES ESE SERRE EERE RE EERSTE EERE EEE CESSES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND i 
ONLY RDANCE W THE TERMS H THE 


-* ® 
:* i 
*® a 
:* ~ 
® ra 
*® ft 
: * 
*® ® 
:* x 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. m 
*® ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
*® t 
** ® 
*® *® 
*® & 
*® ® 
*® ® 
*® * 
*® t 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


IARRBRARRARAAARASLASLALASALASALELEASESER EASE ERE ERE E RES R RRR RR ERE EERE EERE ERE E ES 


SOoOoOoCoooooooooooooooooooooo 
pole lw lola lel ole olelolelolelololeololeoleleololelolololo) 


000 . 
FACILITY: Basic Support Library 
ABSTRACT: 


This module contains entry points to ot F exponentiation 
(** or “) in BASIC-PLUS-2 for DOUBLE ** DOUBLE 


ENVIRONMENT: User Mode, AST Reentrant 


oooo 
oooo 
oooo 


AUTHOR: R. WiLL , CREATION DATE: 22-NOV-78 
MODIFIED BY: 
Wills af VERSION 01 


- Fix com parents make JMP not BRW. OO el 
3 - Add "to the PSECT directive. JBS 25 =D 
4 - Redo fase Poxae sis for base leq 0 for a RE: 
with the PDP-11. JBS 24-APR-197 
5 = Change shared external references to G* RNH 25-Sep-81 
6 - Call OTSSPOWDJ if base > 0 and exponent is integer. MDL 28-Dec-1982 


NRO ODNA UE WN HS ODNAUE WIN $$ OS OONAUE WN @ OOONAUE WN OUOONOUS wn 


PUT BB BBB EEF PMA WII WINNIE PININPIPONPONPONPONYN 2 2 OO OOO 


SOOCCOCOSCOOOCOSOOOSCOoOOOoOoOoooO 


SOoOoOoCoOOOCOSooOoOoOoOoOSoSo 
SSSSSSSSSSSSssssss 
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BASSPOWDD ; BASIC double ** double routine 15-SEP-1984 23:58:37 VAX/VMS Macro v04-00 Pa 
1-006 BECLARATIONS 5-8Eb= 138 93:38:26 BASRTL.SRCIBASPOWDD.MAR; 1 ts 3) 
$8 : 5 -SBTTL DECLARATIONS 
> INCLUDE FILES: 
0 $ : 
000 8 
4 $ 
4 ¢ : EXTERNAL DECLARATIONS: 
00 6¢ : -DSABL GBL 3 Prevent undeclared 
00 6 3 symbols from being 
B98 t: ; automatically global. 
itd 96 eEXTRN OTSSPOWDD ; OTS$ double ** double exponentiation 
0000 6 eEXTRN OTSSPOWDJ ; OTS$ double ** int exponentation 
0000 68 -EXTRN BASSK_DIVBY_ZER ; Divide by Zero 
0000 69 eEXTRN BASS$K-ILLARGLOG 3 Illegal argument in LOG 
0000 70 -EXTRN BASSS$STOP ; Error reporting routine 
0000 71 
0000 if; 3 
0000 73 ; MACROS: 
0000 74; 
0000 75 
0000 6 3 
A ; EQUATED SYMBOLS: 
oe 
81 : OWN STORAGE: 


; PSECT DECLARATIONS: 


~PSECT _BASSCODE PIC, USR, CON, REL, LCL. SHR, - 
EXE, RD, NOWRT, LONG 


0.00 09 00 C9 C0 CD CD 
WONAOULSWR—O 
eee Se 
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| BASSPOWDD ; BASIC double ** double routine iF ot at $333 :37 VAX/VMS Macro v04-00 Page ; 
' BASSPOWDD = BASIC double ** double 6-SEP-1984 10:35:48 CBASRTL.SRCIBASPOWDD.MAR; 1 (3) | 
| 000 4 ot -SBTTL BASSPOWDD = BASIC double ** double 
009 $8 3 FUNCTIONAL DESCRIPTION: 
8 95 ; This routine takes BASE ** EXP, using the following table 
4 39 : for unusual cases: 
00 98 ; BASE > 0, EXP not integer Call OTS$POWDD, normal case. 
00 99 ; BASE > 0, EXP integer Call OTS$POWDJ 
00 100 ; BASE = 0, EXP > Return 0.0. 
000 101 ; BASE = 0, EXP = Return 1.0. 
8208 196 ; BASE = 0, EXP < Error: divide by zero 
000 361035 ; BASE < 0, EXP even integer Call OTS$POWDJ with -BASE 
0000 104 ; BASE < 8 EXP odd integer Call OTSSPOWDJ with -BASE, negate result 
4 132 3 BASE < 0, EXP not integer Error: illegal argument in LOG. 
0000 109 ; CALLING SEQUENCE: 
0000 108 ; 
8008 1% ; CALL result.wd.v = BASSPOWDD (base.rd.v, exponent.rd.v) 
0000 111 ; INPUT PARAMETERS: 
0000 16 ; 
00000004 0000 11 base = 4 
0000000C 0000 114 exponent = 12 
0000 115; 
0000 116 ; IMPLICIT INPUTS: 
0000 117; 
0000 118; NONE 
0000 119; 
0000 120 ; OUTPUT PARAMETERS: 
0000 121; 
0000 1 ¢ 3 NONE 
0000 123; 
0000 Ise 3; IMPLICIT OUTPUTS: 
0000 125; 
0000 126; NONE 
0000 127; 
0000 128 ; FUNCTION VALUE: 
0000 129 ; COMPLETION CODES: 
0000 130; Ie 
0000 131; double result of exponentiation 
0000 13 ; 
si 134 3; SIDE EFFECTS: 
0000 135 ; Will signal Divide By Zero or Illegal orgunent in LOG if its 
44 136 ; arguments are bad, and OTSSPOWDD and OTSSPOWDJ may also signal. 
00 133 ie 
000 139 
0000* 000 140 BASSPOWDD: : MASK OTSSPOWDD ; Entry point 
000 141 ; Since this routine uses no 
000 166 3 registers and usually transfers 
00 14 3; control to OTSSPOWDD, we copy 
00 144 3; its register save mask and then 
00 145 ; JMP past its save mask and only 
4 146 ; save the registers once 
04 AC 73 0 14 TSTD base(AP) ; Test base relationship to zero 
| 
| 


N 
ouble ** double routine 


:; If base leq 0, do case analysis 


AX/VMS Macro V04-00 
BASRTL.SRCJBASPOWDD .MAR; 1 


If the exponent is an 


RO 
Branch if exponent is not integer 


Convert exponent to integer 
stack (integer) exponent 
stack base 

Call integer power routines 
return result 


Transfer control to the OTS$ 
routine to do exponentiation 


We must filter 


Branch if base = 0 


Page (3) 


; Branch if exponent is not integer 


as if an integer was 


ouble variable which happens to 


Convert exponent to integer 

Save for even/odd test 

Stack as parameter to OTS$POWDJ 

Stack -base also 

Call integer power routines 

Branch if exponent even 

Exponent ocd, negate the result 
it. 


but the exponent is not 


and return w 


Never return. 


The value we return depends 


; Test the exponent against zero 


: Branch if exponent (ss 


; Branch if exponent is 0 


| BASSPOWDD ; BASIC d 15-SEP-1984 23:58:37 
12806 BASSPOWDD = BASIC double ** double 6- Seal one 1333 748 
.. O05 108 : BLEQ 1$ 
007 150 ; Come here if the base is greater than zero. 
° : 1 : integer, then we can call OTS$POWDJ. 
50 50 08 00 oC A 74 $03 138 ‘ EMODD ggponent (AP). #0, #1, RO, 
1 12 a16 133 BNEQ $ ; 
500 BD OOote 188 mao 
7E O04 AC 70 0016 138 OVD base(AP), -(SP) : 
00000000'GF 03 FB OIA 15 CALLS #3, G*OTSSPOWDJ : 
oa et Ped , 
00 166 ; Come here if the base is greater than zero and the exponent is not 
80 197 ;_an integer. This is the general case. 
00000002'GF 17 00 165 ?$: JMP G*OTSSPOWDD+2 : 
0058 169 s+ , 
0028 168 : Come here if the base is less than or equal to zero. 
+ : 198 ; several special cases, as described above. 
2 13 0028 171 ‘is: BEQL «86 4$ : 
50 50 08 00 OC AC 74 QO2A 76 EMODD exponent(AP), #0, #1, RO, RO 
1A 12 + } ne : BNEQ 3$ 
ist 175 : The base is less than zero and the exponent is an snpegers 
0033 176 ; BASIC defines this as yortiing the same wa 
0033 177 ; in the expression (making a 
it 178 3 contain an integer value equivalent to an integer variable). 
50 OC AC 6A ob33 180 ° CVTDL exponent(AP), RO F 
ee a 7 
7E 04 AC 72 0038 188 MNEGD base(AP), -(SP) : 
00000000'GF 03 FB OO3F 184 CALLS #3, G*OTSSPOWDJ 3 
8E 9 0046 185 BLBC (SP)+,2$ 3 
50. 50 72 0049 186 MNEGD RO, RO ; 
“ee ipa 3 
004D 189 : Come here if the base is less than zero 
Bee + 3 an integer. BASIC defines this as an error. 
7E GO°SF 9A O9ep 135 $$: MOVZBL #BASSK_ILLARGLOG, -(SP) ; Illegal Argument in LOG 
00000000 * GF 01 FB boas 133 ” CALLS #1, G*BAS$S$STOP 3 
0058 195 : Come here if the base is equal tc zero. 
O38 136 3 uppn the sigh of the exponent. 
Oc AC 73 S38 138 is: TSTD exponent (AP) 3 
09 4619 #O005SB 19 BLSS % 
03 «13 Bee 39 p BEQL $ 3 
5F 03 ; Come here if the base is zero and the exponent is greater than zero. 
rH B : BASIC defines this as 0.0. 


ou uble ** double routine pie a = 1386 $3: 38: if AX/VMS Macro V04-00 Page v3 


a ; BASIC d 
BASSPOWDD = BASIC double ** double 984 BASRTL.SRCIJBASPOWDD.MAR; 1 
~6OCUrt SF 5 CLRD RO ; RO, R1 = 0.0 
04 0961 i RET : Return to caller 
006 o8 i ; Come here if the base is zero and the exponent is zero. BASIC defines 
006 09 ; this as 1.0. 
006 10 ;- 
50 08 70 006 11 5s: MOVD #1, RO ; RO, R1 = 1.0 
04 006 \¢ RET ; Return to caller. 
0066 13 3+ 
0066 14 ; Come here if the base is zero and the exponent is less than zero. 
bees Fe ; BASIC defines this as an error. 
7E QOO'8F 9A S068 i$ is: MOVZBL + pee 2 DIVBY_ZER, -(SP) ; Divide by zero 
00000000'"GF 01 FB 4 sis CALLS , G*BASS$$STOP ; Report error, never return. 
0071 220° END 


= 


asentninenbalions 
C 10 
BASSPOWDD ; BASIC double ** double routine at Lat 9 $3:38:37 AX/VMS Macro v04-00 Page g 
Symbol table 6-SEP-1984 10:35:48 (CBASRTL.SR RCIB ASPOWDD.MAR; 1 (3) 
BASSSSTOP eeeeenee =X 88 
BASSK_DIVBY ZER eeeenreee x 
BASSK-ILLARGLOG seeereee = ¥ 00 
BASSPOWDD 00000000 G 01 
BASE = 00000004 
EXPONENT = 0000000C 
OTSSPOWDD erereeee x 00 
OTSS$POWDJ keeeeene x 00 
¢ eee ow este ame anee + 
: ; Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 < g.} 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_BASSCODE 00000071 ¢ 113.) 1.) PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC LONG 
Queacseesoasesuocessoess$ 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 31 00:00:00.08 00:00:00.27 
ponnens processing 119 00:00:00.45 00:00:01.67 
74 00:00:00.54 00:00:01.65 
Symbol table sort 9 00:00:00.00 00:00:00.00 
s 2 5 00:00:00.43 00:00:01.46 
Sobel table output 88:80:06: 85 00:00:00.01 
Psect synopsis output 00:00:00.0 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 284 00:00:01.54 00:00:05.09 


The working set Limit was 900 pages. 
2598 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table apace | aliecazes to hold 8 non-local and 7 local symbols. 
220 source Lines were read in Pass 1, produci "8 8 object records in Pass 2. 
pages of virtual memory were used to define 0 macros. 


eet ern eee me eo $f 


Macro Library name Macros defined 
“S255SDUA28:(SYSLIBISTARLET.MLB;20 0 SS 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRE SSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:BASPOWDD/OBJ=O0BJ$:BASPOWDD MSRC$:BASPOWDD/UPDATE=(ENHS$ : BASPOWDD) 
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